CP_WY_2022-23 AWS

# data checks 
# battery
BattV <- ggplot(all_hr) +
  geom_line(aes(x = TIMESTAMP, y = BattV_Min, color = site))#+
  facet_wrap(~site, ncol = 1)

## <ggproto object: Class FacetWrap, Facet, gg>
##     compute_layout: function
##     draw_back: function
##     draw_front: function
##     draw_labels: function
##     draw_panels: function
##     finish_data: function
##     init_scales: function
##     map_data: function
##     params: list
##     setup_data: function
##     setup_params: function
##     shrink: TRUE
##     train_scales: function
##     vars: function
##     super:  <ggproto object: Class FacetWrap, Facet, gg>

ggplotly(BattV)

#air temp
AirTemp <- ggplot(all_hr) +
  geom_line(aes(x = TIMESTAMP, y = AirTC_Avg, color = site))#+
  facet_wrap(~site, ncol = 1)

## <ggproto object: Class FacetWrap, Facet, gg>
##     compute_layout: function
##     draw_back: function
##     draw_front: function
##     draw_labels: function
##     draw_panels: function
##     finish_data: function
##     init_scales: function
##     map_data: function
##     params: list
##     setup_data: function
##     setup_params: function
##     shrink: TRUE
##     train_scales: function
##     vars: function
##     super:  <ggproto object: Class FacetWrap, Facet, gg>

ggplotly(AirTemp)

#RH
RH <- ggplot(all_hr) +
  geom_line(aes(x = TIMESTAMP, y = RH, color = site))#+
  facet_wrap(~site, ncol = 1)

## <ggproto object: Class FacetWrap, Facet, gg>
##     compute_layout: function
##     draw_back: function
##     draw_front: function
##     draw_labels: function
##     draw_panels: function
##     finish_data: function
##     init_scales: function
##     map_data: function
##     params: list
##     setup_data: function
##     setup_params: function
##     shrink: TRUE
##     train_scales: function
##     vars: function
##     super:  <ggproto object: Class FacetWrap, Facet, gg>

ggplotly(RH)

#Snow Depth
SnowDepth <- ggplot(all_hr) +
  geom_line(aes(x = TIMESTAMP, y = DBTCDT_Avg, color = site))#+
  facet_wrap(~site, ncol = 1)

## <ggproto object: Class FacetWrap, Facet, gg>
##     compute_layout: function
##     draw_back: function
##     draw_front: function
##     draw_labels: function
##     draw_panels: function
##     finish_data: function
##     init_scales: function
##     map_data: function
##     params: list
##     setup_data: function
##     setup_params: function
##     shrink: TRUE
##     train_scales: function
##     vars: function
##     super:  <ggproto object: Class FacetWrap, Facet, gg>

ggplotly(SnowDepth)

#wind speed
WindSpd <- ggplot(all_hr) +
  geom_line(aes(x = TIMESTAMP, y = WS_ms_Avg, color = site))#+
  facet_wrap(~site, ncol = 1)

## <ggproto object: Class FacetWrap, Facet, gg>
##     compute_layout: function
##     draw_back: function
##     draw_front: function
##     draw_labels: function
##     draw_panels: function
##     finish_data: function
##     init_scales: function
##     map_data: function
##     params: list
##     setup_data: function
##     setup_params: function
##     shrink: TRUE
##     train_scales: function
##     vars: function
##     super:  <ggproto object: Class FacetWrap, Facet, gg>

ggplotly(WindSpd)

#wind speed
WindDir <- ggplot(all_hr) +
  geom_line(aes(x = TIMESTAMP, y = WindDir, color = site))+
   scale_y_continuous(expand = c(0,0), limits = c(0,360), breaks = seq(0,360,90), 
                      guide = guide_prism_minor()) #+
  facet_wrap(~site, ncol = 1)

## <ggproto object: Class FacetWrap, Facet, gg>
##     compute_layout: function
##     draw_back: function
##     draw_front: function
##     draw_labels: function
##     draw_panels: function
##     finish_data: function
##     init_scales: function
##     map_data: function
##     params: list
##     setup_data: function
##     setup_params: function
##     shrink: TRUE
##     train_scales: function
##     vars: function
##     super:  <ggproto object: Class FacetWrap, Facet, gg>

ggplotly(WindDir)